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MODULE DELETION (ZTITLE ‘Process deletion’ 
{DENT = "04-000" 
BEGIN is 


' 
RRR RRRARRAEAAAAAAAAAAAEAAAAAAAAAEAAATH AEE AAA AA AREA AAAERAHAERAEeAAeeeee eee 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
A THE TER CH C TH TH 


'* ONLY IN ACCORDANCE WITH TERMS SU LICENSE AND WI E 
:* INCLUS F THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR Y HER 
'* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


® 

® 

® 

® 

® 

® 

i PRO . 
iw OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
'® ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

i CORPORATION. * 
® 

® 

* 

® 

® 

® 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
't SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Lee RARER AERA EERE REAR AA REET ETE A AAA 
' 
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' FACILITY: 
! Job controller. 


i ABSTRACT: 
This module contains the routines that handle process deletion. 


i ENVIRONMENT: 
VAX/VMS user and kernel mode. 


; AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
i MODIFIED BY: 


V03-004 MLJ0114 Martin L. Jack, 23-Jun-1983 4:57 
Changes for job controller baselevel. 


v03-003 MLJ0112 _. Martin L. Jack, 29-Apr-1983 2:55 
Changes for job controller baselevel. 


v03-002 MLJ0109 _ Martin L. Jack, 14-Apr-1983 12:46 
Changes for job controller baselevel. 


v03-001 MLJ0106 Martin L. Jack, 11-Mar-1983 13:48 
Changes for extended PIDs. 
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3; @& 0059 1 REQUIRE ‘SRCS$:JOBCTLDEF’; : 
aay 1199 1 : 
3 6¢ 1101 1 : 
: 6 1198 1 FORWARD ROUTINE : 
; | (66 1103 1 PROCESS_DELETION: NOVALUE; ° 
.—) 1104 1 ; 
: 66 1105 1 : 
. oF 1106 1 EXTERNAL ROUTINE ‘ 
: 668 1107 1 BATCH_DELETION: NOVALUE, : 
: 69 1108 1 DELETE_GETQUI_ CONTEXT: NOVALUE, . 
; Tr 1109 1 DELETE-SJH_RETORD: NOVALUE ‘ 
a 1110 1 DFQUEU _JOB: L_OUTPUT_1, | ; 
tee. 1111 «1 FIND_PROCESS DATA: L“OUTPUT_3, 

es Wie 1 LOCK" QUEUE_FYLE: NOVALUE, 

Pe 1113 (1 SYMBIONT DELETION: NOVALUE, 

; 75 1114 1 UNLOCK_QOEUE_FILE: NOVALUE, 

3; 1115 1 WRITE TRC COUNTING RECORD: NOVALUE; 


K 2 

DELET Process deletion 16-Sep-1984 00:02: AX-11 Bliss-32 V4.0-74 Page 4 

vet tt 12-8001 382 09:95:38 NOBCTL SREDELET 10N.0391 (3) 

3 4: 1316 1 GLOBAL ROUTINE PROCESS_DELETION: NOVALUE= ; 
ar 1117 (1 : 
; + 1118 1 lee ; 
3 1 1119 1! : 
; ¢ 1120 1 ! FUNCTIONAL DESCRIPTION: : 
; § tte) 3} This routine processes the message type: ‘ 
; B84 11 ¢ 1} MSG$_DELPROC process deletion ; : 
3s 68S 11 1! by updating Ehe appropriate system data structures and writing an ; 
; B6 1 ¢ : accounting record. : 
; & 11 $ 1 ! INPUT PARAMETERS: : 
; 11 1! NONE : 
; 1126 1! : 
; Wi 1129 1 ! IMPLICIT INPUTS: . : 
3 4 1 » : MBX - Pointer to buffered mailbox message. : 
: 94 11 ¢ 1 ! OUTPUT PARAMETERS: ; 
; 11 1! NONE : 
; © 1134 1! : 
5 97 1135 1°! IMPLICIT OUTPUTS: : 
; 1136 1! Process data base updated. ‘ 
.. ve 1137 1! ‘ 
; 100 1138 1 ! ROUTINE VALUE: : 
: 101 1139 1! NONE ° 
s 102 1140 1! | : 
; 103 1141 1°! SIDE EFFECTS: : 
: 106 Veg 1! NONE ‘ 
3; 105 7143 1! : 
: 106 1144 1 !-- : 
: 107 1145 1 ‘ 
: 108 1146 BEGIN | ; 
; 109 1147 2 LOCAL | : 
: 110 1148 TYPE, ! Process type ° 
. oa 1149 § Pi: REF BBLOCK, ' Type-specific parameters ‘ 
: BY 1750 2: REF BBLOCK, : on 7 : 
2 11 1151 2 OPEN_JOB, ' True if process has an open job ; 
; (1146 1136 SJH_A, ! Record number of SJH : 
3 6115 115 SJH: REF BBLOCK; ! Pointer to SJH : 
: #116 1154 ; 
; 117 1155 : 
3 13 1126 Check whether this process had an open $GETQUI. : 
: 130 1138 DELETE_GETQUI_CONTEXT( .MBXCACM$L_PID]J); : 
; 138 1160 ; , : 
: \$7 119) Check whether this process had an open job. ; 
; 1¢8 1168 OPEN_JOB = FIND_PROCESS_DATA(PDE_K_OPEN_JOB, .MBXCACMSL_PIDJ, TRUE; , SJH_N); : 
: 139 1165 $ 
; 128 1106 IF .QUEVE_FABCFABSW_IFI] NEQ 0 : 
; 94 116 M 3 
3s 1350 1168 BEGIN : 
3; «131 1192 y F 
3 136 1170 ' Lock the queue file. 3 
9 1171 ! F 
3 «(134 1172 LOCK_QUEUE_FILE(); : 


2 
DELETION Process deletion 1b-se “19 :02:3 AX-11 Bliss-32 V4.0-74 
v04- 12-8 08- 1 obe 90:95:38 JOBCTL. SRCIDELETION.B3 31 
. 73 1173 
3 1174 
elie 1175 ! If this process had an open job, delete it. 
; 133 1176 ' 
; #139 117 IF .OPEN_JOB 
: 169 1178 
: 1) 1108 IF DEQUEVE_OPEN_JOB(.SJH_N; SJH) 
3 12 ay DELETE_SJH_RECORD(.SJH_N, .SJM); 
3. 144 11 ¢ END; 
: 145 118 
3 148 118% 
3 it 1488 Do type-specific processing. 
: «149 1187 IF FIND _PROCESS_DATA(PDE_K_ANY, .MBXCACMSL_PIDJ], TRUE; TYPE, P1, P2) 
3; 190 1188 THEN 
. i 1189 BEGIN 
; 126 1190 CASE .TYPE FROM PDE_K_SATCH TO PDE_K_SYMBIONT OF 
3 3 1191 SET 
3 15946 1188 
3 939 119 ; 
3; 136 1194 CPDE_K_BATCH): 
s $37 1195 4 BEGIN 
; 158 1196 4 ! 
; 159 1197 4 ! If the process was a batch process, decrement the system batch 
$ 199 1138 ? job count and free the job records. 
3 \o¢ 1200 4 IF .QUEVE_FABCFABSW_IFI] NEQ 0 
; 16 1201 4 THEN 
: «164 1506 5 BEGIN 
: 165 1203 5 BATCH _DELETION(.P1, .P2); 
: 166 1204 § UNLOCR_QUEUE_FILE(); 
3: 167 1205 4 END; 
; 168 1206 4 RETURN; 
; 169 1207 END; 
; 70 1208 
: «171 1209 
: ive 1210 CPDE_K_SYMBIONT]: 
. UF 1211 4 BEGIN 
: 174 isté 4 ! 
3 17? ay 2 } If the process was a symbiont process, clean up the structures. 
s Orr 1215 4 IF .QUEVE_FABCFABSW_IFIJ NEQ 0 
: 178 1 16 4 N 
a. 1217 4 SYMBIONT_DELETION(); 
; 180 isi8 ND; 
: «6181 1219 
3 136 1220 
: 1221 TES; 
: «6184 1 ¢ END; 
s 185 1 
; 186 1224 
$ 14 : 5 : Unlock the queue file. 
: 189 1 5 IF .QUEVE_FABCFABSW_IFIJ NEQ 0 
; 190 1 3 THEN 
3; «6191 1 UNLOCK _QUEUE_FILE(); 
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} Write the accounting record for the process. 


WRITE ACCOUNTING _RECORD(0, 0, .MBX); 


AX=1 
JOBC 


1 i ist 
TL.SRC 


TITLE BE gaa deletion 


-IDENT \V 


-PSECT COMMON,NOEXE, 


00000 DIAG_STORAGE_BASE: 
-BLKB 0 
00000 DIAG_TRACE: 


BL 
00060 DIAG_COUNT: 


BL 96 

000CO DIAG_FLAGS: 3 
000C4 WORK_AREA: 

-BLKB 44 
QO0FO SNDJBC_COUNT: 

-BLKB 132 
00174 GETQUI_COUNT: 

-BLK 40 
QO19C SNDACC_COUNT: = 


-BLK 
00188 SNDSMB_COUNT 
00200 DIAG_STORAGE END: 


BLK 
00200 FLAGS: -BLKB 
00204 IMAGE_DUMP_STSFL 


-BLKB 
00208 THIS_SYSID: 
BLKB 


0020 “BLKB 
00210 CUR_TIME: 


. L 
00218 HOURLY. TIRE : 
00220 HOURLY PARAMS : 
00234 SYMBIONT_COUNT: 


ny Oo CO WOO LALOeN 
o o ~ 


“BLK 
00238 QUEUE _REFERENCE_COUNT: 


-BLKB 
0023¢ ee EN 


s0eee MBX: *BLKB 4 
0244 MBX_END:.BLKB 4 
0248 MEMORY_FREE QUEUES: 


-BL 
00270 NONAST_WORK eae 
-BLRB 
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1b-sop-1984 
12286871382 99:98: 


00278 
0027¢ 
00280 
00284 
00288 
0028¢ 
00290 
00294 
002A0 
002A8 
00280 


00364 
003A8 
00408 
00460 


0055F 
00560 


00564 
83 
00570 
00578 
005¢8 
0060C 


BCB_FREE LIST: 
BCB_ACTIVE List: 
GOL_FREE_LIST: 
“BLKB 
GOL_ACTIVE LIST: 
.BCKB 
OPEN_GETQUI LIST: 
PROCESS_DATA LIST: 
SYMBIONT. CONTROL 
SPARE_AREA: 
.BLK 
REMOTE -REQUEST_ L 
QUEUE _FILE LKSB: 
QUEUE _LOCK LRSB: 
.BCKB 


8 RSP: -BLKB 
JBC “PRIORITY: 


JBC_PRIVILEGES: 
JBC_QUOTAS: 
-BLKB 
-BLKB 
JBC_UIC: .BLKB 
QUEOE _F AB: 


.B 
QUEUE _RAB: 
-BLKB 
QUEUE _NAM: 

-BLKB 
QUEUE _XAB: z 


BL 
QUEUE_RSA: 
BLK 


-BLK 
QUEUE _ALQ: 


QUEUE _MBF : 
-BLKB 


-BLKB 

ACCOUNTING FABS: 

ACCOUNTING RABS: 

ACCOUNT _F AB A: 

ACCOUNT_RAB_A: 
BL 


ACCOUNT_NAM A: 
-BLRB 


a6 


wor 


mp 8 one wis eneeene e # 


AX=1 
JOBC 


1 
T 
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Be Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Be Se Sete Ge Se Ge Ge Se Ge Ge Se Se ee Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Se ee Se Se Se Se ae 


| 3 | 
vOee 000" ee ee 1$-s00-19 1 99:95:06 «= Ebbert Se Specettow.039,1 Page i 5§ 


0066C ACCOUNT_RSA,A: 


° 255 | 
00768 -BLKB) | 
076C ACCOUNT_FAB _B: 

-BLRB 80 
007BC ACCOUNT_RAB i 
00800 ACCOUNT_NAM B: 7 


-BLRB 
00860 ACCOUNT_RSA B: 
BLRB 255 


0095 “BLKB 
0960 DIAG_FAB: 


-BLKB «80 
00980 DIAG_RAB: 
-BLKB 68 
009F4 MBX_CHAN: | 
;BLKB 4 
009F8 MBX.10SB: | 
QOA00 MBX_BUFFER: | 


00E00 VALUE STORAGE BASES 
00EWO ITEM_PRESENT , | 
00E20 VALUE .GETOUT BASES 

00E20 VALUE ACCOUNT ING MESSAGE : 
00E 26 VALUE ACCOUNT ING, TYPES: 
OOE2A VALUE_AFTER TIME: 

00€32 VALUE.ALIGNRENT PAGES: 

00E33 VALUE _BASE “PRIORITY 

0034 VALUE_BATCH INPUT: 

OOE3A VALUE BATCH OUTPUT: 

00E44 VALUE BUFFER COUNT: 

00E45 VALUE CHARACTERISTIC NAME: 
00E4B VALUE CHARACTERISTIC NUMBER: 
O0E4C VALUE CHARACTERISTICS: 

00E5C VALUE CHECKPOINT DATA: 

00E62 VALUE CLI: 8g 

00E68 VALUE CPU. DEF AULT: 

QOE6C VALUE_CPU_LIMIT: 


r— 


me ee ral 


14-Sep- 


00E70 
00E78 
OOE7E 
00€82 
OOES8C 
OOE8E 
OOE 8F 
00EB3 
OOEB9 
OOEBF 
OOEC3 
OOEC9 
OOECA 
OOECB 
OOECD 
OOECF 
00EDO 
00ED6 
QOEDA 
QOEE2 
OOEES 
OOEEE 
OOEFO 
01204 
01205 
01206 
0120C 
012E2 


pee 
| 


3 
OE or en en ESSETRRE NOREES WSL MAeaRE AES, 


VALUE DESTINATION. QUEUE: 
VALUE pevite NAME : 
VALUE ENTRY NUMBER: 
VALUE -eNiy NUMBER OUTPUT: 
VALUE -EXTEND QUANTITY: 
VALUE FILE. COPIES: 
VALUE _FILE IDENT FICATION: 
VALUE_FILE SETUP MODULES: 
VALUE _F ILE SPECIFICATION: 
VALUE Fish PAGE: 
VALUE FORM” DESCRIPTION: 
VALUE _FORM LENGTH: 
VALUE_FORM_MARGIN_BOTTOM: 
VALUE_FORM_MARGIN_LEFT: 
VALUE_FORM_MARGIN_RIGHT: 
VALUE_FORM_MARGIN_TOP: 
VALUE _FORM_NAME : 
VALUE “FORR NUMBER: 
VALUE _FORM: 
VALUE FOR SETUP MODULES: 
VALUE FORM STock: 
VALUE_FORM WIDTH: 
VALUE “GENEAIE. TA 
VALUE_JOB_ COPIES: 
VALUE_JOB_LIMIT: 
VALUE _JOB NAME : 
VALUE _J08 RESET MODULES: 
VALUE _JOB *1ZE_MAXIMUM: 
A (B” 4 


T: 


R: 
4 
8 
6 
6 
2 
RGE 
996 
1 
1 


Page 


<m | 
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012€6 
O12EA 
012F4 
012F8 
O12FE 
01306 
0130¢ 
01312 
01318 
0131C 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 
01363 
01369 
01360 
0136E 
01370 
01374 
Q137A 


d 3 
1e=8eb-198¢ 99:39:00 
VALUE _JOB Size MINIMUM: 
VALUE _JOB STATUS, QUTPUT: 
VALUE_LAST PAGE: 
VALUE “L16RART SPECIFICATION: 
VALUE _LOG QUEUE : 
VALUE _LOG SPECIFICATION: 
VALUE _NOTE : 
VALUE “opeRATDR REQUEST: 
VALUE_OWNER UIC: 
VALUE_PAGE SETUP 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAME TER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _PARAMETER_ 
VALUE _priDhity: 
VALUE _PROCESSOR: 
VALUE “PROTECTION. 
VALUE QUEUE : 
VALUE_QUEUE FILE SPECIFICATION: 
VALUE -RELATIVE_ PAGE: 
VALUE -RESERVED_IN INPUT_1: 
VALUE ~RESERVED. INPUT 2: 
VALUE RESERVED. INPUT _3: 
VALUE RESERVED_INPUT_4 
VALUE _RESERVED_OUTPUT_1: 


AX-11 OL fege3e V4.0-74 1 
JOBCTL.SRCIJDELETION.B32;1 (3 


MODULES: 


ern an on = COO NOOOUE RO WOO 04 » “oO co Oo 


3 
este 98 00:03:38 
-BLKB 10 

01384 VALUE RESERVED OUTPUT_2: 
0138E VALUE_SEARCH STRING: 
01394 VALUE_SCSNODE_NAME : 
0139A VALUE_WSDEF AULT: 
0139C VALUE_WSEXTENT: 
0139E VALUE_WSQUOTA: 


013A0 ath) 
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JOBCTL.SRCIJDELETION.B32;1 


o663¢ 
238 
1622 

7240 

PENIN= 26639 
eet 

6641 

26644 

H DEL 


Monon &roc 


-EXTRN BATC TION, DELETE_GETQUI_CONTEXT 
TEXTRN DELETE SJH_RECORD 

-EXTRN DEQUEUE_OPEN_JOB 

.EXTRN FIND =FROCESS | DATA 


~EXTRN UNLOCK_QOEU LE 
~-EXTRN WRITE XRCCOUNTING. RECORD 


-PSECT CODE,.NOWRT,2 


0£1C 00000 .ENTRY PROCESS DELETION. Save R2,R3,R4,R9,R10,R11 
54 00000000G EF 9E 00002 MOVAB UNLOCK _QUEUE_F R4 
53 000000006 EF 9E 00009 MOVAB FIND_PROCESS— “DATA. R3 
52 00000000' EF 9E 00010 MOVAB MBX,~R 
50 62 DO 00017 MOVL MBX, R 
28 AO DD OOOIA PUSHL  40(RO) 
000000006 EF 01 FB 0001D CALLS #1, DELETE_GETQUI_CONTEXT 
01 DD 00024 PUSHL #1 
50 62 D0 0026 MOVL MBX, RO 
28 AO DD 00029 PUSHL nee 
03 DD 0002C PUSHL 
63 03 FB 0002E CALLS 3. FIND_PROCESS_DATA 
59 50 pO 00031 MOVL OPEN N-198 
0006 «= C2:«#B 990 TSTW R0; 0 E_FAG 
0 13 000 EQL "3 
000000006 0 FB 000 A CALLS #0 Lock ~AUEUE FILE 
9 €9 00041 LBC — OPEN 
SA DD 00044 PUSHL s4H RS 
000000006 gi FB 0046 CALLS jf. OPEN_JOB 
0 E 004D BLBC 
SA 7D 0050 MOVO sii 
000000006 02 FB 0005 CALLS @ “DELETE. PBUH. RECORD 


-— 
“Vot=000" 


; Routine Size: 
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169 bytes, 


000000006 


000000006 


000000006 


Routine 


64 


EF 


Base: 


01 
6 
28 i 
0006 : 
0004 
50 
gb 
A 
02 
00 
50 
07 
00 
0006 c¢ 
0 
00 
62 
7E 
03 
CODE + 0000 


1 
1 
D A 1$ 
BO s 
DD f 
D4 62 
Fg 064 
3 0067 
C 0006A 
CF poet 
0073 2%: 
BS 0077 3$ 
1 $879 
7D 00078 
FB 343 
FB 0008 
04 00088 
DS 00089 4$ 
13 00088 
FB 00080 
8 00094 5$: 
1 Byes 
FB QOO9A 
DD 00090 6$ 
7C 0009F 
FB OO0A1 
04 O00A8 7$: 


JOBCTL.SRCJDELETION. 


48 RO 

{Bt Ro) 

-(SP) 

#3, FIND_PROCESS_DATA 


QUEUE_FAB+2, RO 
TYPE, #1, #1 
3$-2$,- 

4$-2$ 

RO 


» (SP) 
#2, BATCH_DELETION 
#0, UNLOCR_QUEUE_F ILE 
RO 
5$ 
#0, SYMBIONT_DELETION 
QuEUE _FAB+2 


#0, UNLOCK_QUEUE_FILE 
MBX 


-(SP) 
#3, WRITE_ACCOUNTING_RECORD 


AX-11 Bliss-32 YF en oes 
N.832;1 


nee 


1187 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DELETION/OBJ=OBJ$:DELETION MSRC$:DELETION/UPDATE=(ENH$: DELETION) 


| a 
DELET Process deletion 18-3 Sep 
vOee000" e230 2138 
; 199 1 1 END 
; 200 1338 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
; COMMON 5024 NOVEC, WRT, RD ,NOEXE,NOSHR, 
; CODE 169 NOVEC.NOWRT. RD. EXE.NOSHR, 
: Library Statistics 
Se eee eae Se et nen eR, Symbols -or--r-<- 

: File Total Loaded Percent 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 34 0 
4 COMMAND QUALIFIERS 

Size: 169 code + 5024 data bytes 

Run Time: 00:10.8 

Elapsed Time: 00:50.0 

Lines/CPU Min 685 


Lexenes/CPU-Min: 55996 
ry Used: 223 pages 
on ation Complete 


92:99:00 Edacte*seeSoecevi6 


LCL, REL, OVR,NOPIC, rg hott 
LCL, REL, CON,NOPIC,ALIGN(2) 


Pages Processing 
Mapped Time 
1000 00:01.3 
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ONFI 
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